﻿
Namespace LightSwitchApplication

    Public Class Customer

        Private Sub Customer_Created()
            If Me.Application.User.HasPermission(Permissions.Sales) Then
                Me.UserName = Me.Application.User.Name
            End If
        End Sub

        Private Sub FullName_Compute(ByRef result As String)
            ' Set result to the desired field value
            result = LastName & ", " & FirstName
        End Sub
    End Class

End Namespace
